home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TOOLPAS2 / LJ.PAS < prev    next >
Pascal/Delphi Source File  |  1989-11-06  |  446b  |  28 lines
  1.  
  2. (* lj - left justify; remove non-initial repeating spaces from text stream *)
  3.  
  4. var
  5.    s: string;
  6.    i: integer;
  7.  
  8. begin
  9.    while not eof do
  10.    begin
  11.       readln(s);
  12.       while copy(s,1,1) = ' ' do
  13.       begin
  14.          write(' ');
  15.          delete(s,1,1);
  16.       end;
  17.       i := pos('  ',s);
  18.       while i > 0 do
  19.       begin
  20.          delete(s,i,1);
  21.          i := pos('  ',s);
  22.       end;
  23.       writeln(s);
  24.    end;
  25.  
  26. end.
  27.  
  28.